Option Explicit
Sub A_Sample015()
    Dim myRng     As Range
    Dim myNameStr As String
    Dim myName    As Name
    myNameStr = "myArea"			'NW
    'ǳƨ즹
    On Error Resume Next
    	Set myName = Application.Names(myNameStr)
    On Error GoTo 0
    If myName Is Nothing Then
        MsgBox "SҩwqW٦sb"
        GoTo ErrHdl
    Else
        On Error Resume Next
        	Set myRng = myName.RefersToRange
        	'Set myRng = Range(myNameStr)		'ϥRangeݩ
        	'Set myRng = [myArea]			'wdW
        On Error GoTo 0
        If myRng Is Nothing Then
            MsgBox "ҩwqWٰѷӤFxsH~"
            GoTo ErrHdl
        Else
            MsgBox myRng.Address
        End If
    End If
    Exit Sub
ErrHdl:
    Set myRng = Nothing			'
    Set myName = Nothing
End Sub
